home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / Libraries / SAT 2.3b4 / Tutorial ƒ / Assignment1.p next >
Text File  |  1995-01-16  |  418b  |  18 lines
  1. program Assignment1;
  2.     uses
  3. {$ifc UNDEFINED THINK_PASCAL}
  4.         Types, QuickDraw, Menus, Windows, TextEdit, Fonts, Dialogs, Memory, OSEvents, {}
  5. {$endc}
  6.         SAT;
  7. begin
  8. {$ifc UNDEFINED THINK_PASCAL}
  9.     SATInitToolbox;
  10. {$endc}
  11.  
  12.     SATInit(128, 129, 478, 302);
  13.     while not Button do
  14.         ;
  15. end.
  16.  
  17. {Note: If you use Think Pascal, you can close this file and then alt-double-click in the}
  18. {project window to switch to another source file.}